home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Herois / Codigo.Cst / 00141_VejaMais- codigo.ls < prev    next >
Encoding:
Text File  |  1999-03-19  |  824 b   |  41 lines
  1. property spr, mem
  2. property link
  3. property ativado
  4.  
  5. on beginSprite me
  6.   set spr = the spriteNum of me
  7.   set mem = the member of sprite spr
  8.   set the foreColor of member mem to┬¼
  9.       (the backColor of member "FundoCinza")
  10.   set ativado = false
  11.   set link = 10000
  12. end
  13.  
  14. on cleanSprite me
  15.   set the visibility of sprite spr to true
  16. end
  17.  
  18. on idleSprite me
  19.   if not the visibility of sprite spr then return
  20.   
  21.   set tmp = rollOver(spr)
  22.   if tmp <> ativado then
  23.     set ativado = tmp
  24.     if ativado then
  25.       set the foreColor of member mem to ┬¼
  26.           (the backColor of member "FundoVerde")
  27.     else
  28.       set the foreColor of member mem to ┬¼
  29.           (the backColor of member "FundoCinza")
  30.     end if
  31.   end if
  32. end
  33.  
  34. on setLink me, l
  35.   set link = l
  36. end
  37.  
  38. on mouseUp me
  39.   puppetSound 2, "CliqueDuplo"
  40.   vaiPagina link, true
  41. end